BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / Q-R / QB Graphics.sea / segmaker.bas < prev next >
MacBinary | 1991-06-04 | 2.5 KB | [TEXT/MSBB]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: segmaker.bas
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`65%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jun 4 16:35:37 1991, modified Tue Jun 4 16:35:37 1991, creator Microsoft BASIC (binary), type ASCII, 1549 bytes "segmaker.bas" , at 0x68d 683 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MSBB]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 73 65 67 6d 61 6b | 65 72 2e 62 61 73 00 00 |..segmak|er.bas..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 42 | 42 01 00 00 00 00 00 00 |.TEXTMSB|B.......|
|00000050| 00 00 00 00 00 06 0d 00 | 00 02 ab a4 71 aa 19 a4 |........|....q...|
|00000060| 71 aa 19 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |q.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ae b9 00 00 |........|........|
|00000080| 27 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000d0| 27 20 54 49 54 4c 45 3a | 20 20 20 20 73 65 67 6d |' TITLE:|    segm|
|000000e0| 61 6b 65 72 0d 27 20 44 | 41 54 45 3a 20 20 20 20 |aker.' D|ATE:    |
|000000f0| 20 4d 61 72 63 68 20 31 | 31 2c 20 31 39 39 31 0d | March 1|1, 1991.|
|00000100| 27 20 41 55 54 48 4f 52 | 3a 20 52 2e 20 47 6f 6e |' AUTHOR|: R. Gon|
|00000110| 7a 61 6c 65 7a 0d 27 0d | 27 20 44 45 53 43 52 49 |zalez.'.|' DESCRI|
|00000120| 50 54 49 4f 4e 3a 20 20 | 4d 61 6b 65 73 20 61 20 |PTION:  |Makes a |
|00000130| 62 6f 72 69 6e 67 20 73 | 65 67 6d 65 6e 74 20 66 |boring s|egment f|
|00000140| 6f 72 20 76 69 65 77 69 | 6e 67 20 77 69 74 68 20 |or viewi|ng with |
|00000150| 73 65 67 76 69 65 77 0d | 27 0d 27 20 43 4f 4d 50 |segview.|'.' COMP|
|00000160| 49 4c 49 4e 47 3a 20 20 | 20 20 52 65 6d 6f 76 65 |ILING:  |  Remove|
|00000170| 20 53 54 41 54 49 43 20 | 64 65 63 6c 61 72 61 74 | STATIC |declarat|
|00000180| 69 6f 6e 73 2c 20 75 6e | 63 6f 6d 6d 65 6e 74 20 |ions, un|comment |
|00000190| 69 6e 64 69 63 61 74 65 | 64 20 6c 69 6e 65 73 0d |indicate|d lines.|
|000001a0| 27 20 20 20 20 20 43 68 | 65 63 6b 3a 20 49 6e 63 |'     Ch|eck: Inc|
|000001b0| 6c 75 64 65 20 4d 42 50 | 43 73 20 26 20 4d 42 4c |lude MBP|Cs & MBL|
|000001c0| 43 73 2c 20 49 6e 63 6c | 75 64 65 20 72 75 6e 74 |Cs, Incl|ude runt|
|000001d0| 69 6d 65 20 63 6f 64 65 | 2c 20 4d 61 6b 65 20 61 |ime code|, Make a|
|000001e0| 6c 6c 20 61 72 72 61 79 | 73 20 73 74 61 74 69 63 |ll array|s static|
|000001f0| 2c 0d 27 20 20 20 20 20 | 55 73 65 20 64 65 66 61 |,.'     |Use defa|
|00000200| 75 6c 74 20 77 69 6e 64 | 6f 77 20 26 20 6d 65 6e |ult wind|ow & men|
|00000210| 75 2c 20 28 69 66 20 61 | 76 61 69 6c 61 62 6c 65 |u, (if a|vailable|
|00000220| 3a 20 47 65 6e 65 72 61 | 74 65 20 36 38 30 32 30 |: Genera|te 68020|
|00000230| 20 26 20 36 38 38 38 31 | 20 63 6f 64 65 29 2e 0d | & 68881| code)..|
|00000240| 27 0d 27 20 28 4d 4f 44 | 49 46 49 43 41 54 49 4f |'.' (MOD|IFICATIO|
|00000250| 4e 20 48 49 53 54 4f 52 | 59 29 0d 27 20 44 41 54 |N HISTOR|Y).' DAT|
|00000260| 45 3a 20 20 20 20 20 20 | 0d 27 20 41 55 54 48 4f |E:      |.' AUTHO|
|00000270| 52 3a 20 0d 27 20 44 45 | 53 43 52 49 50 54 49 4f |R: .' DE|SCRIPTIO|
|00000280| 4e 3a 20 20 20 0d 27 2d | 2d 2d 2d 2d 2d 2d 2d 2d |N:   .'-|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002d0| 2d 2d 2d 2d 2d 0d 0d 27 | 4d 41 49 4e 0d 0d 20 20 |-----..'|MAIN..  |
|000002e0| 20 20 44 49 4d 20 61 24 | 2c 62 24 2c 66 69 6c 65 |  DIM a$|,b$,file|
|000002f0| 6e 61 6d 65 24 0d 20 20 | 20 20 0d 20 20 20 20 53 |name$.  |  .    S|
|00000300| 48 4f 57 50 45 4e 20 20 | 20 20 20 20 20 20 27 20 |HOWPEN  |      ' |
|00000310| 73 68 6f 77 20 73 65 67 | 6d 65 6e 74 73 20 77 68 |show seg|ments wh|
|00000320| 69 6c 65 20 63 72 65 61 | 74 69 6e 67 20 74 68 65 |ile crea|ting the|
|00000330| 6d 2e 20 20 54 68 65 20 | 22 73 68 6f 77 6c 65 76 |m.  The |"showlev|
|00000340| 65 6c 22 20 69 73 20 75 | 73 75 61 6c 6c 79 0d 20 |el" is u|sually. |
|00000350| 20 20 20 27 20 20 20 20 | 31 2c 20 6d 65 61 6e 69 |   '    |1, meani|
|00000360| 6e 67 20 74 68 61 74 20 | 74 68 69 6e 67 73 20 61 |ng that |things a|
|00000370| 72 65 20 64 72 61 77 6e | 2e 20 20 54 68 65 20 50 |re drawn|.  The P|
|00000380| 49 43 54 55 52 45 20 4f | 4e 20 73 74 61 74 65 6d |ICTURE O|N statem|
|00000390| 65 6e 74 20 64 65 63 72 | 65 6d 65 6e 74 73 20 74 |ent decr|ements t|
|000003a0| 68 65 0d 20 20 20 20 27 | 20 20 20 20 73 68 6f 77 |he.    '|    show|
|000003b0| 6c 65 76 65 6c 20 62 79 | 20 31 2c 20 73 6f 20 6e |level by| 1, so n|
|000003c0| 6f 74 68 69 6e 67 20 69 | 73 20 64 72 61 77 6e 2e |othing i|s drawn.|
|000003d0| 20 20 48 6f 77 65 76 65 | 72 2c 20 53 48 4f 57 50 |  Howeve|r, SHOWP|
|000003e0| 45 4e 20 69 6e 63 72 65 | 6d 65 6e 74 73 20 74 68 |EN incre|ments th|
|000003f0| 65 20 73 68 6f 77 6c 65 | 76 65 6c 0d 20 20 20 20 |e showle|vel.    |
|00000400| 27 20 20 20 20 62 79 20 | 31 2e 20 20 4c 69 6b 65 |'    by |1.  Like|
|00000410| 77 69 73 65 2c 20 48 49 | 44 45 50 45 4e 20 64 65 |wise, HI|DEPEN de|
|00000420| 63 72 65 6d 65 6e 74 73 | 20 74 68 65 20 73 68 6f |crements| the sho|
|00000430| 77 6c 65 76 65 6c 20 62 | 79 20 31 20 61 6e 64 20 |wlevel b|y 1 and |
|00000440| 50 49 43 54 55 52 45 20 | 4f 46 46 20 69 6e 63 72 |PICTURE |OFF incr|
|00000450| 65 6d 65 6e 74 73 0d 20 | 20 20 20 27 20 20 20 20 |ements. |   '    |
|00000460| 74 68 65 20 73 68 6f 77 | 6c 65 76 65 6c 20 62 79 |the show|level by|
|00000470| 20 31 2e 20 20 54 68 69 | 6e 67 73 20 61 72 65 20 | 1.  Thi|ngs are |
|00000480| 64 72 61 77 6e 20 61 73 | 20 6c 6f 6e 67 20 61 73 |drawn as| long as|
|00000490| 20 74 68 65 20 73 68 6f | 77 6c 65 76 65 6c 20 69 | the sho|wlevel i|
|000004a0| 73 20 67 72 65 61 74 65 | 72 20 6f 72 20 65 71 75 |s greate|r or equ|
|000004b0| 61 6c 0d 20 20 20 20 27 | 20 20 20 20 74 6f 20 31 |al.    '|    to 1|
|000004c0| 2e 0d 0d 20 20 20 20 50 | 49 43 54 55 52 45 20 4f |...    P|ICTURE O|
|000004d0| 4e 0d 20 20 20 20 62 61 | 63 6b 63 6f 6c 6f 72 20 |N.    ba|ckcolor |
|000004e0| 33 33 0d 20 20 20 20 43 | 4c 53 20 20 20 20 20 20 |33.    C|LS      |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 27 20 6e 6f 74 65 |        |  ' note|
|00000500| 20 2d 20 74 68 65 20 73 | 63 72 65 65 6e 20 69 73 | - the s|creen is|
|00000510| 20 63 6c 65 61 72 65 64 | 20 77 68 65 6e 20 73 65 | cleared| when se|
|00000520| 67 6d 65 6e 74 20 31 20 | 69 73 20 64 72 61 77 6e |gment 1 |is drawn|
|00000530| 21 0d 20 20 20 20 66 6f | 72 65 63 6f 6c 6f 72 20 |!.    fo|recolor |
|00000540| 32 37 33 0d 20 20 20 20 | 43 49 52 43 4c 45 20 28 |273.    |CIRCLE (|
|00000550| 31 30 30 2c 31 30 30 29 | 2c 35 30 0d 20 20 20 20 |100,100)|,50.    |
|00000560| 50 49 43 54 55 52 45 20 | 4f 46 46 0d 20 20 20 20 |PICTURE |OFF.    |
|00000570| 61 24 3d 50 49 43 54 55 | 52 45 24 0d 0d 20 20 20 |a$=PICTU|RE$..   |
|00000580| 20 50 49 43 54 55 52 45 | 20 4f 4e 0d 20 20 20 20 | PICTURE| ON.    |
|00000590| 66 6f 72 65 63 6f 6c 6f | 72 20 31 33 37 0d 20 20 |forecolo|r 137.  |
|000005a0| 20 20 4c 49 4e 45 20 28 | 31 30 30 2c 31 30 30 29 |  LINE (|100,100)|
|000005b0| 2d 28 32 30 30 2c 32 30 | 30 29 0d 20 20 20 20 50 |-(200,20|0).    P|
|000005c0| 49 43 54 55 52 45 20 4f | 46 46 0d 20 20 20 20 62 |ICTURE O|FF.    b|
|000005d0| 24 20 3d 20 50 49 43 54 | 55 52 45 24 0d 0d 20 20 |$ = PICT|URE$..  |
|000005e0| 20 20 66 69 6c 65 6e 61 | 6d 65 24 20 3d 20 46 49 |  filena|me$ = FI|
|000005f0| 4c 45 53 24 28 30 29 0d | 20 20 20 20 4f 50 45 4e |LES$(0).|    OPEN|
|00000600| 20 66 69 6c 65 6e 61 6d | 65 24 20 46 4f 52 20 4f | filenam|e$ FOR O|
|00000610| 55 54 50 55 54 20 41 53 | 20 23 31 0d 20 20 20 20 |UTPUT AS| #1.    |
|00000620| 50 52 49 4e 54 20 23 31 | 2c 20 32 0d 20 20 20 20 |PRINT #1|, 2.    |
|00000630| 50 52 49 4e 54 20 23 31 | 2c 20 4c 45 4e 28 61 24 |PRINT #1|, LEN(a$|
|00000640| 29 0d 20 20 20 20 50 52 | 49 4e 54 20 23 31 2c 20 |).    PR|INT #1, |
|00000650| 61 24 0d 20 20 20 20 50 | 52 49 4e 54 20 23 31 2c |a$.    P|RINT #1,|
|00000660| 20 4c 45 4e 28 62 24 29 | 0d 20 20 20 20 50 52 49 | LEN(b$)|.    PRI|
|00000670| 4e 54 20 23 31 2c 20 62 | 24 0d 20 20 20 20 43 4c |NT #1, b|$.    CL|
|00000680| 4f 53 45 20 23 31 0d 0d | 45 4e 44 0d 0d 00 00 00 |OSE #1..|END.....|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 ef | 00 00 00 ef 00 00 00 bc |........|........|
|00000710| 12 40 fc 02 24 40 02 02 | 24 80 01 02 44 80 00 82 |.@..$@..|$...D...|
|00000720| 08 80 00 42 11 00 00 22 | 02 00 00 12 04 00 00 0a |...B..."|........|
|00000730| 0c 73 65 67 6d 61 6b 65 | 72 2e 62 61 73 65 02 00 |.segmake|r.base..|
|00000740| 00 00 54 45 58 54 4d 53 | 42 42 01 00 00 40 00 40 |..TEXTMS|BB...@.@|
|00000750| 00 00 54 45 58 54 4d 53 | 42 42 01 00 00 40 00 40 |..TEXTMS|BB...@.@|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 a4 37 34 27 00 00 | 06 0d 00 00 02 ab 02 02 |...74'..|........|
|00000780| 24 00 fc 02 12 00 80 02 | 12 00 80 02 12 00 80 02 |$.......|........|
|00000790| 12 00 80 02 12 00 fc 02 | 24 00 02 02 24 00 01 02 |........|$...$...|
|000007a0| 44 00 00 82 08 00 00 42 | 10 00 00 22 00 00 00 12 |D......B|..."....|
|000007b0| 00 00 00 0a 00 00 00 06 | 00 00 00 02 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 02 00 00 00 06 | 00 00 00 0a 00 00 00 12 |........|........|
|000007f0| 00 00 00 22 00 00 00 42 | 00 00 00 82 40 00 01 02 |..."...B|....@...|
|00000800| 00 00 00 16 14 41 62 6f | 75 74 20 41 70 70 6c 69 |.....Abo|ut Appli|
|00000810| 63 61 74 69 6f 6e 2e 2e | 2e 00 00 00 00 16 00 32 |cation..|.......2|
|00000820| 00 82 00 83 01 76 00 01 | 00 00 00 00 00 00 00 00 |.....v..|........|
|00000830| 00 80 00 00 00 00 00 64 | 00 02 00 00 00 00 00 34 |.......d|.......4|
|00000840| 00 4b 00 48 00 a4 04 02 | 4f 4b 00 00 00 00 00 08 |.K.H....|OK......|
|00000850| 00 08 00 18 00 f4 88 22 | 54 68 69 73 20 61 70 70 |......."|This app|
|00000860| 6c 69 63 61 74 69 6f 6e | 20 77 61 73 20 63 72 65 |lication| was cre|
|00000870| 61 74 65 64 20 75 73 69 | 6e 67 00 00 00 00 00 1c |ated usi|ng......|
|00000880| 00 2d 00 2c 00 c3 88 14 | 4d 69 63 72 6f 73 6f 66 |.-.,....|Microsof|
|00000890| 74 20 51 75 69 63 6b 42 | 41 53 49 43 00 00 00 04 |t QuickB|ASIC....|
|000008a0| 00 01 00 2e 00 00 00 0a | 00 09 06 4d 6f 6e 61 63 |........|...Monac|
|000008b0| 6f b4 00 00 00 04 00 06 | 00 08 00 00 00 31 30 52 |o.......|.....10R|
|000008c0| 61 6c 70 68 27 73 20 44 | 69 73 6b 3a 4c 61 6e 67 |alph's D|isk:Lang|
|000008d0| 75 61 67 65 73 3a 51 42 | 3a 6d 69 63 72 6f 67 72 |uages:QB|:microgr|
|000008e0| 61 70 68 69 63 73 3a 73 | 65 67 6d 61 6b 65 72 00 |aphics:s|egmaker.|
|000008f0| 00 01 00 00 00 01 ef 00 | 00 00 ef 00 00 00 bc 00 |........|........|
|00000900| 32 fa ac 04 6a 00 00 00 | 1c 00 aa 00 06 53 54 52 |2...j...|.....STR|
|00000910| 20 00 00 00 3a 44 4c 4f | 47 00 00 00 46 44 49 54 | ...:DLO|G...FDIT|
|00000920| 4c 00 00 00 52 4d 42 43 | 4f 00 00 00 5e 45 46 4e |L...RMBC|O...^EFN|
|00000930| 54 00 00 00 6a 45 54 41 | 42 00 00 00 76 4d 42 41 |T...jETA|B...vMBA|
|00000940| 4e 00 00 00 82 00 80 00 | 00 20 00 00 00 00 33 67 |N.......|. ....3g|
|00000950| b4 00 80 00 06 20 00 00 | 1a 00 00 00 00 00 80 00 |..... ..|........|
|00000960| 0c 20 00 00 34 00 00 00 | 00 00 00 ff ff 20 00 00 |. ..4...|..... ..|
|00000970| 9c 00 33 67 d8 03 eb ff | ff 00 00 00 a4 00 00 00 |..3g....|........|
|00000980| 00 03 ec ff ff 00 00 00 | b2 00 00 00 00 00 00 ff |........|........|
|00000990| ff 00 00 00 ba 00 00 00 | 00 05 41 62 6f 75 74 05 |........|..About.|
|000009a0| 41 62 6f 75 74 05 41 62 | 6f 75 74 00 00 00 00 00 |About.Ab|out.....|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+